%% Copyright (C) 2013
%% 
%% This program is free software; you can redistribute it and/or modify
%% it under the terms of the GNU General Public License as published by
%% the Free Software Foundation; either version 3 of the License, or
%% (at your option) any later version.
%% 
%% This program is distributed in the hope that it will be useful,
%% but WITHOUT ANY WARRANTY; without even the implied warranty of
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
%% GNU General Public License for more details.
%% 
%% You should have received a copy of the GNU General Public License
%% along with Octave; see the file COPYING.  If not, see
%% <http://www.gnu.org/licenses/>.

%% [DistMat] = EuclDistPairwise (Mat1, Mat2)
%% Mat1 e Mat2 são matrizes de mesma dimensão, sendo: (dimensão x número-de-pontos)
%%

function [DistMat] = EuclDistPairwise (Mat1, Mat2)

  DistMat = sqrt( bsxfun(@plus, dot(Mat1,Mat1,1)',dot(Mat2,Mat2,1)) - 2*(Mat1'*Mat2) );
  
end%function 
